INP 
        STA last
SLOOP   LDA count
        OUT
        ADD one
        STA count
        SUB last
        BRZ end
        BRA SLOOP  
end     HLT
one     DAT 1 
last    DAT 0
count   DAT 1